home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / v cisle / hexer / mpth_17.exe / {app} / scripts / Random Fill.mps < prev    next >
Encoding:
Text File  |  2005-10-02  |  836 b   |  37 lines
  1. INCLUDE '*.lng'
  2. = fill a file with random data
  3.  
  4. option globalvars 1
  5. var start dword count dword editorf file rest dword offs dword
  6.  
  7. editorf = fileopen('::current', 'rw')
  8. number_radix = 10
  9. number_prefix = ''
  10. number_suffix = ''
  11. start = dword(input(__RF1__,__RF2__,text(filegetprop(editorf, 'selstart'))))
  12. if filegetprop(editorf, 'selcount') == 0
  13.   count = filesize(editorf) - start
  14. else
  15.   count = filegetprop(editorf, 'selcount')
  16. endif
  17. count = dword(input(__RF1__, __RF3__, Text(count)))
  18.  
  19. offs = count+start
  20. fileseek editorf offs
  21. fileseek editorf start
  22. loop schleife (count / 8)
  23. rest = count mod 8
  24. if rest
  25.   filewrite editorf textcopy(data2text(QRandom),1, rest)
  26. endif
  27. showprogress 100, 100
  28. fileclose editorf
  29. end
  30.  
  31. @@schleife
  32. filewrite editorf QRandom
  33. showprogress offs, filepos(editorf)-start
  34. return
  35.  
  36.  
  37.